home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
zoc205.zip
/
INSTALL.FIL
/
SCRIPT
/
RXSAMPLE
/
MISC
/
3_LOOP
< prev
next >
Wrap
Text File
|
1994-08-13
|
310b
|
21 lines
/* REXX */
/* THIS SCRIPT SHOWS HOW TO LOOP COMMANDS */
CLS
/* a simple loop (running three times) */
DO 3
WRITE ZOC!
END
/* a loop running until the user answers YES */
DO UNTIL ANSWER=YES
REQUEST '"Do you like ZOC?"' YES NO
ANSWER= ZOCRESULT()
END
WRITE "Glad to hear this!"